home *** CD-ROM | disk | FTP | other *** search
/ Chip 2011 November / CHIP_2011_11.iso / Programy / Inne / Gry / Carnage_Contest / scripts / CC Original / weapons / Explosive Belt.lua < prev    next >
Encoding:
Text File  |  2009-09-29  |  1.7 KB  |  54 lines
  1. --------------------------------------------------------------------------------
  2. -- Weapon Explosive Belt
  3. -- Original Carnage Contest Weapon
  4. -- Script by DC, August 2009, www.UnrealSoftware.de
  5. --------------------------------------------------------------------------------
  6.  
  7. -- Setup Tables
  8. if cc==nil then cc={} end
  9. cc.belt={}
  10.  
  11. -- Load & Prepare Ressources
  12. cc.belt.gfx_wpn=loadgfx("weapons/belt.bmp")                            -- Weapon Image
  13. setmidhandle(cc.belt.gfx_wpn)
  14.  
  15. --------------------------------------------------------------------------------
  16. -- Weapon: Explosive Belt
  17. --------------------------------------------------------------------------------
  18.  
  19. cc.belt.id=addweapon("cc.belt","Explosive Belt",cc.belt.gfx_wpn)    -- Add Weapon
  20.  
  21. function cc.belt.draw()                                                -- Draw
  22.     setblend(blend_alpha)
  23.     setalpha(1)
  24.     setcolor(255,255,255)
  25.     setscale(getplayerdirection(0),1)
  26.     setrotation(0)
  27.     drawimage(cc.belt.gfx_wpn,getplayerx(0),getplayery(0)+7)
  28.     hudinfo("Attention: Hitting [Space] with this weapon will kill your own player!")
  29. end
  30.  
  31. function cc.belt.attack(attack)                                        -- Attack
  32.     if (weapon_shots<=0) then
  33.         if (attack==1) then
  34.             -- No more weapon switching!
  35.             useweapon(0)
  36.             weapon_shots=weapon_shots+1
  37.             -- Suicide
  38.             playerdamage(0,100000)
  39.             -- Cause damage
  40.             arealdamage(getplayerx(0),getplayery(0),120,90)
  41.             -- Destroy terrain
  42.             terrainexplosion(getplayerx(0),getplayery(0),50,1)
  43.             -- Crater
  44.             grey=math.random(0,40)
  45.             if math.random(0,1)==1 then
  46.                 terrainalphaimage(gfx_crater150,getplayerx(0),getplayery(0),math.random(6,9)*0.1,grey,grey,grey)
  47.             else
  48.                 terrainalphaimage(gfx_crater175,getplayerx(0),getplayery(0),math.random(6,9)*0.1,grey,grey,grey)
  49.             end
  50.             -- End Turn
  51.             endturn()
  52.         end
  53.     end
  54. end